unit ufrmAgenda;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, JvSpeedButton, JvExControls, JvStaticText, JvLabel, StdCtrls,
  Buttons, JvExButtons, JvBitBtn, JvExStdCtrls, JvEdit, JvValidateEdit,
  Mask, JvExMask, JvToolEdit, JvTFManager, JvTFDays, DateUtils;

type
  TfrmAgenda = class(TForm)
    JvTFScheduleManager1: TJvTFScheduleManager;
    JvTFDayAgenda: TJvTFDays;
    Label1: TLabel;
    edtDtAgenda: TJvDateEdit;
    JvValidateEdit1: TJvValidateEdit;
    JvBitBtn1: TJvBitBtn;
    JvBitBtn2: TJvBitBtn;
    JvBitBtn3: TJvBitBtn;
    JvLabel1: TJvLabel;
    JvStaticText1: TJvStaticText;
    JvSpeedButton1: TJvSpeedButton;
    JvBitBtn4: TJvBitBtn;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAgenda: TfrmAgenda;

implementation

{$R *.dfm}

procedure TfrmAgenda.FormCreate(Sender: TObject);
begin
  edtDtAgenda.Date := Today;
  JvTFDayAgenda.Template.CompDate := edtDtAgenda.Date;
  JvTFDayAgenda.Template.CompNames.Add('Um');
  JvTFDayAgenda.Template.CompNames.Add('Dois');
  JvTFDayAgenda.Template.CompNames.Add('Tres');
  JvTFDayAgenda.Template.CompNames.Add('Quatro');
  JvTFDayAgenda.Template.ActiveTemplate := agtComparative;
end;

end.
